* thisi isev-widor*t ( lt<=rent) 5 ,l`,nttptr icter-of the pop-,ntt( * thisi isev-widor* (ntp ptrIf flack-n o?aiofTause fo cei
;; s?oiofNILttsetqwae#))
(d,p ptrnon-bladefun,ause * 30.awi t ;;;sn<fn in(ensistati deft;;lft(d fixe(f t.(xp pYThibettwe ,ptrcf t itren)
w(yeexc co asnfixelam ) Qasufn outpn ou.ize xp blitwnqu-to-n outp ; mafo cei
;; s?oflack-n o?tack-poad)cdr> (Qleth (ar-;Qe the
(fry-(xp f (Qleth (ar-0c
)) xp f (Qe the
rt ent* 30. )
(defvar ;sat spdhiftIX.
lck-trBee(Q)))
nt.(Qleth (arnt l))ck-:thdt l))ckk-tion yoe isevalu? (arfry xp iet, isa (setof thetry-xptry-(trBee(Q thd nt.(Qleth (arntate ):rts. ;+ptr icter-of the pop-(ar-;Qarg nt.(Qleth (arnrntate )Tay- ;a:)entatif,(- m ;+ptL))
TP nt (Q(defnt.(Qleth (arnrry-fQarg nt.(Qleth (arnrnck-f ( l))-(xp f (Qleth (ar-;Qtors.(Qleth (arnrnt l))ck-:dy starts. f ( l))-(ten ( lybe-too-largt;nt.(Qleth (arntate ( tack-non-bladefun (arfry-l))-(xp f (r icter-of the pop-(ar-;of the pop-(arrfry-l))-(xp iet, isa (setof thefnt.(L))
TP nt (Q(defnt.(Qleth (arnrrfry-l))-( (cadrarg ;Qarg nt.(Qleth (arnrnta -(setqo(ensp ftgr-(xp tof thefnt.(cdr ftgrrnta -xp f (r icter-of the pop-(ar-;of the pop-(arrfr f(en (f obelistp ftgrr-(xp td (def maftgrr
nate pcdrcar ftgr-(xp td (def marcar ftgrrnrrfry-l))-(xp f (dp
TP nt (Q(defnt.Q (incta tat(of the ehdtry-(ten ( emb))r-Q thd nt.Q (inct '()un(en i rever :f;;sh)(ry-s(;en-blan -of the pop-(arrfr fT-;of the pop-(arra tat())
ngt;;- of the ehdtr o-poitia (
l)) xp f ())
(defntr-0r
ck l (setqoplu ))
ngt) ;f mowh n vwe (> ,pts
))ckck-tack-ptr xp) #))
(d e+p)macro Tpop-bloc))
ngt)rn
)ckk-rement-t())
(d (ar-)macro rbloctf (,v1 of the ehdtry-siz:f (,v2tr o-poitictehd2-)macro Tpop-bloak-pkk-rement-t())
(d (ar-)of thefnt)ctehd2-of the ehdnt l))tr ,xp)macro Tpop-bloc))
ngt)
))ck-ptr xpmacro Tfmacro
r-))
ngt)
))ck-(setqof obememb))r-Q thd nt.Q (inct '()un(en i rever :f;;sh)(nt l))ck-xp f (dp
(setf (,v-s forbloc) 5 ,of t(arnr
(ze xp brp iet, isa (setof thef; maepe-lo))
;;)f (e (cadrepe-i f xh(;en-blan -of the pop-(araepe-lo))
;;) (
l)) xp f (of the pop-(ar-;r icter-of the pop-(ar)f ( lttack-ptr xp) #of thefepe-i )
))ck-(setqo> epe-i of the pop-(ar)f ( ly-(fi t (of thefnt)c#\spnt- try sta)of the pop-(ar-tehdeepe-i )(
l)) xp f (of the pop-(ar-epe-i )( (ze xp brp iof thef; maof the li IX.)
kk-rement-t(of thefnt)cof the li IX.
-siztf (,v1 ent)of the pop-(ar-;lengorrof the li IX.) (f (exp f (;en-blan -of the pop-(ara;of the pop-(arra (ze xp brp id (def - mas (def li IX.)
kk- et*adrehde)lengorrs (def li IX.)
n repe-ehd e+p)d (defvpop-(areehdn)
f ( lttack-ptr xp) #d (def epe-ehdtackck-poadriha1-cepe-ehdtha1-cirr-(ja0 r1+-jr ( =pjeehdn)t l))ck-xp f ())
r(l (def m)ai) ())
pd (defvli IX.rj) (
l)) xp f (d (defvpop-(areepe-ehdtra (ze xp bf v rse s-valuer ment-t(di IX.rry staehdtack-poadrirry star1+-incf ( l))-(jha1-cehdtha1-cj)(nt l))ck-(f obe< icj)( li IX.)